SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 


**F ILE**1D**CSPQUORUM 

ccccccce SSSSSSSS PPPPPPPP QQ0Q00Q UU UU 000000 RRRRRRRR UU UU MM MM 
cccccccc SSSSSSSS_ PPPPPPPP QQQ0QQ UU UU 000000 RRRRRRRR UU UU MM MM 

cc $$ PP PP QQ QQ UU uu 00 00 RR RR UU UU MMMM MMMM 

cc $$ PP PP QQ QQ UU UU 00 0O RR RR UU UU MMMM MMMM 

cc $$ PP PP QQ QQ UU UU 00 00 RR RR UU UU MM MM MM 

cc SS PP PP QQ QQ UU UU 00 00 RR RR UU UU MM MM MM 

cc SSSSSS PPPPPPPP QQ QQ UU UU 00 00 RRRRRRRR UU UU MM MM 

cc SSSSSS PPPPPPPP QQ QQ UU UU 00 00 RRRRRRRR UU UU MM MM 

cc SS PP QQ QQ QQ UU UU 00 0O RR RR UU UU MM MM 

cc SS PP QQ QQ QQ WU UU 00 00 RR RR UU UU MM MM 

cc SS PP QQ UU UU 00 RR RR UU UU MM MM eee 
cc SS PP Qa QQ UU UU 00 00 RR RR UU UU MM MM eeee 
CCCCCCCC §=SSSSSSSS PP QQQQ QQ YUUUUUUUUU 000000 RR RR UUUUUUUUUU MM MM eeee 
CcCCCCCC §=SSSSSSSS PP QQQQ QQ YUUUUUUUUU 000000 RR RR UUUUUUUUUU MM MM cece 

LL III] SSSSSSSS 

LL HI! SSSSSSSS 

LL I] $s 

LL I] $$ 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LELLLLLLLL tdi SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 
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- CSP DISK QUORUM MODULE 16-SEP-1984 01:12:08 VAX/VMS Macro v04-00 


Declarations 


Own storage 
CSPSQUORUM = Disk quorum ection reyt ine 
tH INIT = Request initialization 
Sere DNARE - Get the quorum disk name 


F ILE = Open the quorum @ 
GET_CBN = Get the qyorun file Logical block number 
VALIDATE FILE = Validate the qyorun ile 
WRITE_F ce - Write the quorum file 
CLOSE FILE = epese the quorum file 
REQUEST COMPLETE = Request completion 
CALCULATE _CHECKSUM = Calculate the quorum file checksum 


cag 


= CSP DISK QUORUM MODULE 


OOOoCoSoSo 


Soooooooo 


OOOOoCOooooooooooooooo 


PVP SVSVSVSVSIS B® Be BS BB BE EB NHI AIAI I IPO POPONIPUNINININUNYD 2 SS OO OS 


NAN AN OS OD NA UE WIN 9 OD NAME WIN 9 OD NA UNE WI 2 O OONAUE UL" OWDVNOUE 


> 4 eeeeeneeeeeeeeeeeeneees 


"SSEP=158% OL:08:58 YSYSUGR. SRESEsBadonum.man: 1 


Tht Lf GRE CRORYA - CSP DISK QUORUM MODULE 


COPYRIGHT oui? 1978, 1980, 1982, 1984 BY 
DIGITAL tty CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGH 3 RESERVED. 


THIS for runes I$ f mai eee tHe te A ah SCENSE AND MAY BE USED AND COPIED 
oo i, CORDANC ott rnd cut pF SUCH sce NSE _ AND WITH THE 
NCLU lon’6 tol “ia corr gute NOTIC THIS SOFTWARE OR ANY OTHER 

COPIES THEREOF A a le foe IDED OR OTHERWISE MADE AVAILABLE TO ANY 

OTHER PERSON. NOT 0 AND OWNERSHIP OF THE SOF TUARE IS HEREBY 

TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

D SHOULD NOT ITMENT BY DIGITAL EQUIPMENT 


A BE CONSTRUED AS A COMM 

CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SRAAAAAKSTAAAAAAAAAAAAAAARAAAAAAAAAAAATAAAAAAAAAAAAAAARERERAAAARAAAAAAAAEEEE 


Facility: csp 


Abstract 
this module is a ‘‘client’’ thread of the CSP. It is requested by the 


quorum disk code whenever: 
- SYSINIT did not find the quorum file, 


Page d) 


| euqneorooserooneoooococoonqcoconcccoes deeeenocceeeoceonecccececcoseeeccooces 


- an 1/0 error occurred when reading or writing the quorum file, 


- or the quorum file containes corrupt data. 


Enviornment: 


CSP process 


Author: 


R. Scott Hanne, CREATION DATE: 23-Aug-1983 


Modified by: 


V03-006 ADE0002 Alan D. Eldridge ie AS 
Use oo Teviv S {ne > 8 $GET v1 S with 
when T is d vered ypon R 

thought : "he Masks ctable. 


v03-005 DWT0211 David W. Thiel o-hor, 1804 
Call CNX$DISK _CHANGE when CLUBST_QDNAME filled in. 


v03-004 RSHO133 


84 
ince 
failure tee on is 


- Sco ane 03-Apr-1984 
Modify CLOSE mits to poi My eal CSPSSWAIT when the file close 


v4 


ss 


= CSP DISK QUORUM MODULE 


v03-003 


v03-002 


v03-001 


"Er See aT be Oc iOks Se FRNCV OR Bac te Loe OO MAR: 


1/0 is successfully queued. 


RSHO126 R. Scott Hanna gi? 

incorperare changes to make this ploor tt m 2 eltont’ ‘ of 
the oy requested by the QUORUM code gether than 
perteence ly running to check of ivore In addition th bs 
routine can now create a quorum file none exists and 
repair one that does but prot My. Re data. 


ADE0001 Alan 'dge 28-F eb-1984 
ESPaet name of CSP SubRua’ or fs PSQUORUM_INIT, add new 
CSP$ yaaa entry point which used now only as a place 


RSHO079 t Hanna 10-Nov-1983 
Modify atgor ithe to gi ttl ratsk minutes to see if the 
Meeanees to the quorum disk has been lost. If so it 

does the quorum file lookup again. 


tual” 


CSP\ 
v4: 
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vo4-000 ahve pac bpapmeetina yen, "SSEP=198¢ 04:08:58 ESYSUGR.SRESEsPouonUM.man:1 29° <3, vee 


» SBTTL Declarations 
Define Symbols 


Attribute control block 

; Channel control block 

; Cluster block 

Cluster quorum disk control block 
; Cluster quorum 

; bescriptar definitions 

: tem List codes 
File information block 

; File ID codes 

; 1/0 function codes 

; Interrupt orrer ey levels 

; Attributes statistics block 
; System service status codes 


sage wilt no longer be reported after ERROR_COUNT reaches 


a7 MH NOOMas 
mo 
wm 


SOOOCOCOOOOOOOOOWWOwWcDomcnwHon~~ 
Sete e 

t 

SAD RAMAMMAHAPMRMHAPMHMMNON 

ZB NN BWNOVOOOOPy 
moomovcolveclc@c”7 
WMMM MMmMmmm oOo 

Baal 

Be Ste Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


mm 
zs 
zs 
oo 
z7 


OOoooocooco 


0000000A ERROR_THRESHOLD = 10 


SoOooooooooooo 
ooo 
MO OCONAUE WN OOONOUS 


So 
—— 


= CSP DISK QUORUM MODULE 
Own storage 


csc 


} -SBTTL Own storage 
00 1 THREAD_ACTIVE: .BYTE 
0000 H 1 5 QD_DESCR WORD 
1 BYTE 
; 2 1 BYTE 
00000009' H 118 LONG 
00000049 2 V2 QD_NAME -BLKB 
0 4 49 115 QD_ITMLST WORD 
Fe 88 g, 40 118 7 LONG 
4 88 4 11 LONG 
118 - LONG 
4D 55 52 4F 55 51 gogo 1°010E0000' 5 120 QF_DESCR eASCID 
4 41 464 2E ef 121 
00000000 598 ! ¢ CLUDCB_LBN: LONG 
00000000 1a) ! : LOOKUP_LBN: LONG 
00000000 183 | 8 CHANNEL : - LONG 
00000000 00000000 078 \ 8 1088: - QUAD 
00 0081 | 9 ERROR_COUNT: .BYTE 
00000000 3 1 | ¢ ERROR_MESSAGE: .LONG 
0069 o 3 1 : FIB_DESCR: yore 
0 1 6 BYTE 
0000008E ' 4 ! LONG 
0Q00000CE 3 133 FIB: -BLKB 
0008 20 cf 141 ATTRIB_BLOCK: » WORD 
Steet A‘ D 136 - LONG 
001 D6 «(14 WORD 
9 0 A: DA 144 . LONG 
*50000108" # 108 “TONG 
8 8 0 6 E6 149 LONG 
0000010A " 183 STATBLK -BLKB 
0001 0004 ' . ! ? UIC: WORD 
FFOO ! 6 ! § FPRO: ~ WORD 
45 4C 49 46 20 20 4D 55 52 4F 55 51 11 155 IDENT_STRING ASCII 
HF: ! § ASSUME 
00000000 00000000 is \ 3 RESCHEDULE_TIMER 


eQUAD 0 
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row | |Gt 


SYSLOA.S ReIe CSPQUORUM.MAR; 1 
0 ; Thread active flag 
0 ; Quorum disk descriptor 
DSCSK_DTYPE_T 
DSC$K_CLASS_D 
QD_NAME 
64 3 Quorum disk name 
rt “RAM FULLDEVNAM 3 SGETDVI item List 
QD"DESCR 
he 
/QUORUM.DAT;1/ ; Quorum file descriptor 
0 ; Quorum file LBN from the CLUDCB 
0 ; Quorum file LBN from file Lookup 
0 3 Quorum disk channel number 
0 ; 1/0 status block 
0 ; Error reported counter 
0 ; Descr addr of last error message 
F IBSK_LENGTH ; FIB descriptor 
DSCSK_DTYPE_T 
DSCS$K_CLASS_S 
FIB 
F IBSK_LENGTH ; File information block 
ainss STATBLK,ATRSC_STATBLK ; Attribute control block 
nase. UIC ,ATRSC_UIC 
ATRS$S_FPRO,ATRSC_FPRO 
. 0 


ATRSS_STATBLK ; Statistics block 


4,1 3; File owner UIC (C1,4]) 
“XFFOO : File protection (S:RWED,O:RWED) 
/QUOR FIL Quorum file ID string 


IDENT. STRING 
3; Reschedule interval 


E/ 
CLUQF$S_ IDENT €0 


Page (3) 


PQUORUM.MAR; 1 


v04-00 
3 Quorum file buffer 


S£p-1986 84:08:58 ESYSUOA. saedes 


CLUQFSK_BLOCKS*512 
eASCID \RCSP-W-QFNOTFOUND, Previously existing quorum file not found\ 


f 


N 6 
-BLKB 


QF _BUFFER: 


»ASCID \RCSP-W-QFCHANGED, Quorum file location has changed\ 
eASCID \ZCSP-E-QFOPEN, Quorum file open/create error\ 
eASCID \RCSP-E-QFRATT, Quorum file read attributes error\ 
eASCID \RCSP-E-QDGETDVI, Quorum disk $GETDVI failed\ 


eASCID \RCSP-I-QFINIT, Quorum file initialized\ 
eASCID \2RCSP-E-QDASSIGN, Quorum disk assign error\ 
eASCID \RCSP-E-QFREAD, Quorum file read error\ 
eASCID \SCSP-E-QFWRITE, Quorum file write error\ 


eASCID \RCSP-I-QFCREATED, Quorum file created\ 


163 MSSG2: 
164 MSSG3: 
165 MSSG4: 
166 MSSGS: 
167 MSSG6 
168 MSSG7: 
169 MSSG8: 
170 MSSG9: 
171 MSSG10: 
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= CSP DISK QUORUM MODULE 
Own storage 
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00000956 °F 
07 50 
51 FEA4 cf 


0619 BF 5 


4) 
x 
‘oOo 


; 


ee 


= ¢ 
CSP 


Soc 
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BBCS #0 THREAD_ACTIVE,1$ 

1 BRW 17$ 
‘ 1$: PUSHR #*M<R2,R3,R4,R5,R6,R7> 
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“Disk quorum action routine 'S-SEP-1984 04:08:58 LSvSLOA.sReseSPaUORUM.maR:1 9° (fy voce 


-SBTTL CSPSQUORUM = Disk quorum action routine 


Sh 
This rout tne is requested when some type of error has occured with the 
quorum disk. {t acknowledges the request and gets the quorum disk name 
and logica ock number from the CLUDCB. It then does a access with a 
reate modifier Q10 to the ACP. (i.e. If the quorum file ore not exist 
t creates one.) If a quorum file exists the ata in the file is 
validated. If the quorum file contents are invalid or the quorum file 
was created, a template quorum block is written back to the file. The 
roauee: is cone losee by the the hogicet block number, the request 
and acknowledge bits, and the state field in the CLUDCB. 


CALLING SEQUENCE: 

JSB CSPSQUORUM 
INPUTS: 

NONE 


NONE 
SPSQUORUM: : 


OVP oe Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Se Ge Ge Ge Ge Se Ge Ge 


Br if thread not active 
Thread active, ignore request 
Save registers 


Do the initial work 


SCMKRNL_ 
Br if request necessary 


S REQUEST_INIT 
BLBS ~RO,2$ 
BRW 16$ 


8 28: TSTW QD. DESCR 
NEQ 


Do we have the quorum disk name? 
BNEQU f 


Br if yes 

Get quorum disk name 

Br if success 

Quorum disk assign error 


JSB GET _QDNAME 
BLBS 


$ 
MOVAL MS§G10,R1 
BRW 118 


3$: SASSIGN_S DEVNAM = QD_DESCR,- Assign a channel to 
CHAN the quorum disk 
Br if success 


Quorum disk assign error 


= CHANNEL 
BLBS 


Sete te te 


1 

i 

13 

14 

13 

9 RO 4$ 

1 MOVAL MS$G5,R1 

1 BRW 118 

: 4$: JSB OPEN FILE Open the quorum file 
4 


Br if success 
Quorum disk open/create error 


BLBS =séR 
MOVAL NS$G6.R1 
BRB 11$ 


Sete 


5$: CMPW RO.#SS$_CREATED 
BNEQU 


Did we create the file? 
N Br if 
JSB GET ¥ 


no 
Get the quorum file LBN 
Br if err 


BLBS or 
Quorum disk read attributes error 


RO,6 
MOVAL MS§G 


oR1 


CSPQUORUM 
vO4=000 
5A 
FBCS CF 
B 
FD76 ff 
00000000 EF 1 
FDAF CF 
00000000 ' EF o} 
FRA7 CF 
FBA2 CF FBAI CF 


FDCO ft 
00000000’ EF 1 


meets 
4 
0 
51 FEAD CF 
OE 


OOO00ArP Er 
27 50 
51 FECA CF 
F87F CF 


F878 CF 
F872 CF 


F86C 
00000000 EF 

F 
eeocoees"s 


F 
00000A 


MEO MOOOoOO —GCeOnrvovnn 
wr SF" We TYP om 


00000000°EF 00 
FEDD 


F77F CF 
OOFC 8F 


UORUM 


~a FAA OS 
7 OM 


WO-rVIO OUTS 


OLSON —OFOW—OW— MOO —TWU@Se DW wu —w 


—o —9COFN —"00—00-—-C cm —Co-OoOMm— "W0o—-C0 — 7" 


ia 


—~ 
AEE PUWWRNNNIN | | SQOCO TAT AANHMMMMMIOCIVGAAAOAO 


Sl Smmo www onowre SOOM NM FS MIWIMM ODS OOM ONIN OU Hh 


2900090909 09 09 00 00 09 Cn Go G9 Cd G9 00 09 09 09 C9 G9 0D 09 09 09 09 08 INI NINSI SN NNN NNN 


Cone o 


sk 


6$: 
7$: 


8$: 


9$: 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
6 
6 
6 
6 
6 
6 
6 
6 
é 
7 
7 
7 
7 
7 


; 


i 
5 
1 
5 


, 
0 


10$: 


11$: 


128 
3$ 
14$ 


188: 


¢ 7 
1 


eran action routine aes 7 4:08:98 


118 
5, UOCe LON 


WSSG1 
#1, CSPSTELL_OPCOM 
MSSG2 
A} CSPSTELL OFCOM 


gLuDCB_LBN 
LUDCB_LBN,LOOKUP_LBN 


Ys bed 
#1,CSPSTELL_OPCOM 
VAL IQATE FILE 
RO,15$ 


$ 
MSSG8,R1 
11$ 


Mors FILE 
$ 
MSSG9,R1 
R1,ERROR_MESSAGE 


R1, ERROR MESSAGE 
#ERROR_ TARESHOLD ,ERROR_ COUNT 


ERROR, COUNT 
#1, CSPSTELL_OPCOM 
14$ 


MSSG4 


CHEDULE TIME 
RESUME 


P$GL_CURC 


SCMKRNL_S REQUEST_COMPLETE 
THREAD_ACTIVE 


#°M<R2,R3,R4,R5,R6,R7> 


AX/VMS Macr 
SYSLOA.SRCJCSPQUORUM.MAR; 1 (4) 
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; Did es file exist before? 
; Br if not 

; Output message via opcom 

; Output message via opcom 


; Did the file exist before? 
: if not 


Br 
Do the LBN's match? 


; Br if they do 
; Output message via opcom 
; Validate the file contents 


Br if quorum file valid 


; 1/0 error? 


Br if 


not 
; Quorum file read error 


; Write a template quorum file 
; Br if success 
3 Quorum file write error 


; Same error as last reported? 
if yes 


Br y 

Save address of last error message 
Should we report this one? 

Br if not 

Increment error count 

Push address of message descr 
Output message via opcom 


Output message via opcom 

Reset error count and... 
-»-error pointer. 

Close the quorum file 

Deassign the quorum disk channel 
Have we completed the request? 


r es 
o* 3 Delay and try again 


; Wait for completion 


; Complete the request 
; Clear thread active flag 


; Restore registers 


Se es De De i Bes Be De Be) 
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CSPQUORUM = CSP DISK QUORUM MODULE 16-SEP-1984 01:12: AX/VMS Macro V04-00 Pa 8 
yo4-000 CSPSQUORUM = Disk quorum action routine g- $e 138¢ 8:38:98 SYSLOA.SRCJCSPQUORUM.MAR; 1 - (4) 
50 6(01 0 OBR 383 178: poyt #SS$_NORMAL ,RO ; Return success 


CSPI 
Pse: 


se 


0000000 * GF 
5 0084 C3 


Nm 
o 


N 

o 

= 

- 

wn" 

=r 

Orn 
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SK QUORUM MODUL 


INIT = Request Initialization Bi ioet ys 8: d8:58 SYSUOK. sh ele CSP yeUORUM. MAR; 1 ree 3) 


by -SBTTL REQUEST_INIT = Request initialization 
§ ¥ This routine acknowledges the request, gets the quorum disk LBN 
: and name, and initializes the reschedule timer. 
e : CALLING SEQUENCE: 
! : SCMKRNL_S REQUEST_INIT 
; INPUTS: 
‘ NONE 
§ OUTPUT: 
$ RO = Status 
1 : oe, - Request is necessary (Quorum disk state is NOT_READY) 
1 ; = Request not necessary 
} ; R1,R3 Destroyed 
| hag 
15 REQUEST_INIT: 
18 WORD 0 
1 éLRL RO 3; Assume request My not necessary 
18 MOVL G*CLUSGL_ CLUB a ; Get CLUB addre 
1 MOVL  CLUBS$L_CCUDCB(R3) ,R3 ; Get CLUDCB address. 
0 CMPW © #CLUDCB$M_QS_NOT_READY,- : Is state NOT_READY? 
1 FLUDCESU_STATE (RS) 
§ BNEQU 1 ; Br ifn 
BISW #CLUDCBSM_QF_CSPACK,- 3 Ack the Foqueet 
4 CLUDCB WFLAGS {Re} 
5 MOVL  CLUDCBSL“QFLBN(R3),CLUDCB_LBN =; Get the LBN 
§ MOVZWL aS 6 43 Q RE INTERVAL Rt 3; Get quorum disk timeout value 
EMUL R1,#-10000000,40,- 3; Convert to seconds (Delta form) 
; RE SCHEDULE TIMER 
MOVL #SS$_NORMAL ,RO 3; Request is necessary 
0 1$: RET 


ce 


10 

F740 CF 00000 ~'s 
1 0 

F73A gf 

F72C CF 810 0 

1c 50 

50 «F781 gf 

14 50 


= CSP DISK QUORUM MODULE 
GET_QDNAME = Get the quorum disk name 


POF FMA FO OF Fe 


WRB HRNOSCTCTCVOOOCOCWWIaawawaqanwaqaqnqnwwvnqnqo0 «2 


50.001 
04 
FOED CF 


me 


56 Tard 
57 F6D8 CF 
C6 0088 CF 3 


| 
: 
: 
| 


1 
1 
1 
1 
1 
1 
: 


SOOO IID. DDD DDD DDD TIT EB BS BS BB INI 
RAO OD NA NE WINS OOD NIA NE WIN SO OO NA NE WWIN SO OO NAEP  O OOO 


: 


+ 
ee 


copy is in the CL 
CALLING SEQUENCE: 

JSB GET_QDNAME 
INPUTS: 

NONE 
OUTPUT: 


RO = Status 
R1-R7 Destroyed 


GET_QDNAME : 
MOVC3 


G*CLUSGB_ODISK-QD_NAM 
LOCC wal / ,#CLUDCB$S_B1SK_QUORUM,- 
SUBW3 RO #CLUDCBS$S_DISK_QUORUM 
SGETDVIW_S DEVNAM = GD_DESCR 
ITMLST = QD ty 
-; ASTADR = CSP$$R 
-: ASTPRM = CSP$GL_CUR 
10SB = 1088 
BLBC 0.18 
+; CALLS #0. CSPSSWAIT 
MOVZWL 1086 RO 
BLBC RO, 1$ 
CMKRNL_S GET_QDNAME1 
VL #1, 
B 2$ 
I$: CLRW  QD_DESCR 
23: RSB 
GET_QDNAME1: 
«WORD 0 
MOVL G*CLUSGL_CLUB,.R6 
TST f UB$T_GBNAME (R6) 
BNEQ 
SUBWS #2, QD_DESCR,R7 
MOVC3 =R7, QD“ NAME+1, CLUBST_QDNAME+1(R6) 
MOVE = aR? CLOBST QDNAME (ROY 
‘o 58 G*ENX$D1SR_CHANGE 


SSE =1586 80:08:58 


-SBTTL GET_QDNAME = Get the quorum disk name 


#CLUDCBSS_DISK_QUORUM, - 


AX/VMS Bacce v04-00 Page 


SYSLOA.SRCJCSPQUORUM.MAR; 1 


This routine gets the full quorum disk name and makes sure that a 


; Get copy of quorum disk name 
; Locate end of name 


QD_DESCR ; Store name Length 


; Get full device name 


Br if error 

Wait for completion 
Get completion status 
Br if error 

Put name in CLUB 
Return success 


3; Zero name size 


Get CLUB address 

Is name in CLUB already? 
Br if yes 

Get adjusted name size 

; Put name in CLUB 

; Put name a 3 n CLUB 

; Tell connection manager 


~— 
ao 
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-SBTTL OPEN_FILE = Open the quorum file 


vo4-000 OPEN. F 


+4 
: This rousine ‘opens'’ the quorum file and obt _ its logics block 
: number. It will first sfftenet to find any ex stin quorum file but 
; af funsuccessty » it will 5 create 8 pew, ne. Note t at the logica 
; block number is onty returned if the file was not created. This is 
: due to the fact that the statistics. block is not returned on a create. 
: CALLING SEQUENCE: 
; JSB OPEN_FILE 
; INPUTS: 


: NONE 
0 


; OUTPUT: 
RO = Status of file open 
R1-R6 Destroyed 


PEN_FILE: 


First we initialize the FIB. 


56 =F74C CF 


BE MOVA FIB,R6 3; Get FIB pointer 
66 0060 8F 00 6 60 ¢ MOVCS #0,(SP),#0,#FIBSK_LENGTH,(R6) : Init FIB to all zero 
00080501 8F »D MOVL a Lose WR TE iF IBSR_NOREAD!F 188M_NOWRI TE? F 185M _ URITETHRU,- 
: s 
ne & A6 " 8 MFO, F IBSW_DID_NUM(R6) 3; Directory is the MFD 
Ab B MOVW #FIDSC™MFD.FIBSW~DID~SEQ(R6) 
0 85 BF 8 MOVW a 1BSh EXTEND /F IBSM_ALCON!F 18SM_ FILCON,- ; Extend control bits 


PANN MAAE BANA AAA ANA AA AAA MA MAA AMAMAMAAAAAA 


PPP PLL LFF LOM PON —TDWM MMMM MmMmMmmmmmmmmmmmmmmmmmmmmmmemrnrn 


A 
18 AB OO dO MOVL PCLUOF K_BLOCKS,FIBSL_EXSZ(R6) ; Allocation size 


on 


; Attempt to lookup/create the quorum file and access for read‘write 


DOOOODOOOOOOOOOOOOOOOOODOODODOODOOODODOOOOOODOODOOOOOOOOO —<o 


6 
$Q10_S CHAN = CHANN 
FUNC = #10$ ACESS! 1OSH_ACCESS! 1OSM_CREATE.,- 
1088 Ss = 10S8) 
ASTADR = CSPS$RESUME,- 
ASTPRM = CSP$GL CURCEX, - 
P = FIB_ SESE 
P = #OF ~DESCR.- 
P = #ATTRIB_BLOCK 


Br if error 

Wait for com Legion 

Get 1/0 completion status 
Br if error 


CALLS iB ge StReualt 

#4" 

Get the quorum file LBN. 
MOVW STATBLK*+SBKS$W_STLBNL,LOOKUP_LBN ; Get the Low-order LBN 


ogg” 


WANA AIAI AI AI AR POPOPIPOPONINIIIID 4 BQO OOODOOOOOOOO00000 
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FOBD CF F738 CF 80 


SnEAPSREEF.SHORUM MODULE ag TCRERTIRES 81:48:08 S¥SLOA.SRESeSPaUORUM.man;1 "28° 9; 


FOBS8 CF F732 CF 0 paBk te} 1s MOVW STATBLK*+SBKS$W_STLBNH,LOOKUP_LBN+2 ; Get the High-order LBN 


RSB 
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saree aeFSLaRIeELWS NOME tive Lontcat we TECRESISEG SLMROE UAVAYGE SRESCSHOSGROn.mansn "20% 
tte -SBTTL GET_LBN = Get the quorum file logical block number 
ina This routine reads the quorum file attributes and gets the quorum 
; file logical block number. 
; CALLING SEQUENCE : 
; JSB ss GET_LBN 
; INPUTS: 
; NONE 
} OUTPUT: 
; RO = Status of file open 
G 


R1 Destroyed 


SSSHSHSGSHOH OTST HHO OOOO Oooo ooo DoD wD 


= PWM BD & $M OMOMOOOOOOOAAOAOOAOAAOAOOOOOOOOOO 
F at ae ae oe ae ae a a ke ee ee ee en 


COCO CD09 09 SI NINN NINN NSD PPA AA AA AD MTU E 


PWNS ODNA NES WIN 20 OD NOA NE WP 9 OOO NA UNE WP 2 OW NID 


ET_LBN: 
$Q10_S CHAN = CHANNEL,=- : Read the file attributes 
FUNC = #10$_ACCESS, 
10SB = 10SB,- 
ASTADR = CSPS$$RESUME,- 
ASTPRA = CSP$GL_CURCTX,- 
p = FIB_DESCR,- 
Pe = #QF DESCR,- 
P = #ATTRIB_BLOCK 
10 50 E€9 ODF BLBC 88.18 ; Br if error 
OOO00000"EF 00 FB O9F CALLS #0,CSPSSWAIT 3 Wait for cenplotion 
50 F67A gf 43 OF MOVZWL 1088,R0 ; Get 1/0 completion status 
0— 50 €E A BLBC —- RO, 18 : Br if error 
" 3; Get the quorum file LBN. 
F667 CF FOES CF 8 A MOVW STATBLK+SBK$W_STLBNL,LOOKUP_LBN ; Get the Low-order LBN 
F662 CF FO6DC CF 3 13 eye STATBLK+SBK$W_STLBNH, LOOKUP-LBN+2 ; Get the High-order LBN 
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-SBTTL VALIDATE_FILE = Validate the quorum file 


This routine reads the quorum file and validates its contents. 
CALLING SEQUENCE: 

JSB VALIDATE_FILE 
INPUTS: 

NONE 
OUTPUT: 

RO = Status of validate 


if RO = SS$_NORMAL the file is valid. If RO = 0 the file is 
nvalid. Otherwise RO contains an I/O status error. 


R1-R3,R6,R7 Destroyed 


<= Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Sete 
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ALIDATE_FILE: 


; Queue a read request to the quorum file 


$Q10_S CHAN = CHANNEL,= 
#10$_READLBLK,- 
10SB;- 
CSPS$RESUME ,- 
CSP$GL_CURCTX,- 


UFFER,=- 
#CCUQFSK BLOCKS*512,- 
LOOKUP_LBEN 

Br if error 

Wait for c lLetion 

Get 1/0 completion status 
Br if error 


RO.2$ 
CALLS #0, CSPSSWAIT 
1058 RO 
BLBC —-«RO,, 2 


: Validate the data in the quorum file 


Assume file not valid 
Get buffer pointer 
Get the checksum 

Is checksum valid? 


r no 
Validate ID area 


) 
FER,R6 


F BUF 
CCULATE_CHECKSUM 


g 


Br if file invalid 
Is version correct? 


So 
o 
os 
So 
2 
a 
Sete 


Br if not 
File is valid 
; Return status 
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A p te -SBTTL WRITE_FILE - Write the quorum file 
A7D 4/7 34+ 
- 4 +3 ; This routine builds a template quorum file and writes it to the disk. 
Arp ; CALLING SEQUENCE: 
Af 3 JSB WRITE_FILE 
Arb 4 : INPUTS: 
AgD : : NONE 
App 8 : OUTPUT: 
43 9 : RO = Status of the write 
A7D 6¢ : R1-R7 Destroyed 
ye 
A7D 63 WRITE_FILE: 
Nae 
44 OB ; Build a template quorum file 

56 FOAS CF DE OA7 5 . MOVAL QF _BUFFER,R6 ; Get buffer pointer 

00 ot 00 2C OA 71 MOVC 40° (SP), #0, : Zero buffer 

66 0400 8F A te #cLUQE K_BLOCKS*512, (R6) 

5681 $5 28 a 1 iS MOVC3 watare $s, ipens NT,- 3; Store ident string 
66 ABE 6575 LPF Ost IDENT CR 
63 0 BO OA 9 4 MOVW Haat QFsR atin (R3) 3; Store version number 
00000B4C "EF 1 Ad 7 JSB CALCULATE _CHEC 3; Get the checksum 
44 A6 7 #O A99 4 MOVL R7, CLUQFSC_CHECKSUM(R6) 3: Store checksum 
48 A6 01 YO ary O MOVB #1, ELuOr SB” IGNORE (R6) ; Set ignore flag 
AA 1 Write the template quorum file. 
AAI 4 ' $Q10_S CHAN = CHA 
AAI 4 FUNC = #10 S uRITELBLK,- 
AAI 5 10SB = =—«*10S 
AAI é ASTADR = CSPS$RESUM 
AAI ASTPRM = CSPS$GL SURE TX, - 
AAI 8 P} = UFFE 
AAI P = #cCUOESK ghtocksesi2, - 
AAI 0 P = LOOKUP_ 
0C 50 €9 QAD4 91 BLBC RO A$ ; Br if error 
OO0O000000"EF 00 FB OAD7 38 CALL #0, CSPSSWAIT : Wait for completion 
50 F597 CF 3¢ AD 93 * novia 1088, RO : Get 1/0 completion status 


U 
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~SBTTL CLOSE_FILE = Close the quorum file 


vO4-000 CLOSE 


ot 


max 


++ 
This routine ‘‘closes’’ the quorum file by issuing a Q10 with the 
IO$_DEACCESS function code. 

; CALLING SEQUENCE: 

JSB CLOSE_FILE 


: INPUTS: 
c 


RO,R1 Destroyed 


LOSE_FILE: 


>>>>>>r>r>r>r>r>>r>rrrrrrrrrrrrrr "SO 
——OMMMMMmMmMmMMmMmMmmmmmmmmmmmmmm@m*rn 


$Q10_S CHAN = CHANNEL,- ; Queue deaccess request 
FUNC = #10$_DEACCESS,- 
OSB =s =—«*LOSB-- 
ASTADR = CSPS$RESUME,- 
ASTPRM = CSPSGL_CURCTX 
07 BLBC ; Br if error 


SSSFFFFFFFFFFFFFFSFFSFSSSSeSSSN o 


NOOO REE R ERE R EPP PPP EPP PEPE EEE TM 


PAGO AOAAAAO AAA AOAAO AAO AAOOOO OUI 


50 =6—€9 RO,1$ 
00000000'EF 00 fe 1 #0,CSPSSWAIT ; Wait for completion 


= 
bed 


zDD 


N 7 
Ao completion et Bi b8 358 SYSUOA. SRETeSPOUOKUM. MAR: 1 thao 3) vo4 


-SBTTL REQUEST_COMPLETE = Request completion 


vo4-000 Regu 


— = 
mo 


+ 
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This routine completes the request by updating the CLUDCB fields. 
CALLING SEQUENCE: 

SCMKRNL_S REQUEST_COMPLETE 

INPUTS: 

NONE 

OUTPUT: 

RO,R1 Destroyed 


PARA AAAAA AA AAA AA AA AAO AAA AA AAA AA AAO 
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REQUEST_COMPLETE: 
0098 -WORD 0 
50 90008000" ef i) MOVL G*CLUSGL_CLUB Re 3; Get CLUB address 
5 00B4 cO 0 MOVL  CLUBS$L_CCUDCB(RO) RO : Get CLUDCB address 
1 £548 cf 9 MOVL CHANNEL ,R1 3 Get channel number 
51 90000000'9F :. « SUBL3 R1,a#CTLSGL_CCBBASE ,R1 ; Form CCB address 
SETIPL #16LS_TIMER 3; Synchronize access to CLUDCB 
oc ‘ 61 dO OVL CCBSL_UCB(R1),CLUDCB$SL_UCB(RO) ; Store UCB address in CLUDCB 
1C AO F533 CF dO MOVL LOOKUP_LBN CLUDCBSL_QFCBN(RO) ; Put LBN in CLUDCB 
10 AA BICW #CLUDCBSM_GF_CSPACK7- ; Clear the in progress bit 
22 AO CLUDCBSW_FLAGS (RO) 
02 B60 MOVW #CLUDCBSA_QS_READY,- : Set state to ready 
20 AO CLUDCBSU_STATECRO) 
# 3; Restore IPL 


SETIPL 
RET 


So 
a 
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i »SBTTL CALCULATE CHECKSUM = Calculate the quorum file checksum 


+ 
> 


PPP rne 


C : : This routine calulates the checksum of the quesum block pointed to 
C 3 by R6, It includes the field CLUQFSL_CHECKSUm in the checksum 
+43 § : calculation. 
BAC 668 ; CALLING SEQUENCE: 
BAC f JSB -- CALCULATE_CHECKSUM 
BA 0g i INPUTS 
BAe 674 : R6 = Pointer to the quorum block 
BAC 676 } OUTPUT 
BAC ers ; R7 = Quorum block checksum 
B4C 680 : R2.R3 Destroyed 
BeBe 
+43 6 $ CALCULATE_CHECKSUM: 
2g 12 OD B4C $ 5 MOVL #CLUQFSK_CHECK_LENGTH/4,R2 ; R2 = checksum longword count 
5 8 D B4F 6 66 § MOVL R6,R3 ; Copy buffer address 
D +i 6 CLRL R : Form checksum in R7 
57 3 ef B5 688 1$: MORL2 (R3)+,R7 ; Accumulate checksum 
FA 52 OF TH 689 SOBGTR R2,1$ ; Br if more 
05 A 690 RSB 
$828 691 
5B 692 


- END 
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Symbol table 


; Mac 

BLOC E -5 
CALCULATE CHECKSUM 33 
CCBSL_UCB $ 
CHANNEL ° 


E4 


Reeeeeee 


v04=00 p 
~SEP=1 RETCSPQUORUM.MAR:1 “9° (43) 


RO 
ATB 
C 
RO 
ATBLK 
K 


CL a eeeneere 
CLUSGW_QDSK INTERVAL ererrene 
Tertyperetteg B4 
CLUBS NAME 
CLUDCBSL_QFLBN 
CLUDC 
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MSSG 
OPEN FILE 
PRS_TPL 


Oo 
So 
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aeeerene QF-DESCR 
00000729 ST_COMPLETE 
geeeeene E NIT 
eteereee 
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Psect synopsis 
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! Psect synopsis ! 


pesscaese eae ceases 


PSECT name Allocation PSECT No. Attributes 
- ABS . 000 < -) 00 ¢ -) NOPIC USR CON ABS ' LCL NO 
BLANK . 5 | ( 2907.) 01 ¢ 1.) NOPIC USR CON REL LCL NOS 
SABSS 00 ¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NO 
goer een mene mere mec mem oe een + 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 3 0:00:00.03 :00:02. 
Command processing 19 : 00-46 : 08:91 
ass 1 46 :00:11. :00:48.4 
Symbol table sort :00:01. } :00:04.7 
Pass 13 : ° :00:08. 
Symbol table output 1 : ‘ : 3: e 
Psect synopsis output 0:00:00. :00:00. 
Cross-reference output 3: :00. :00:00. 
Assembler run totals 76 0:15. 0:01:06.6 


sh working ort Limit was 1650 pages. 
95851 bytes (188 pages) of virtual memory were used to buffer the intermediate code: 

There were 100 pages of symbol table space 0} Located o hold 1706 non-local and local symbols. 
$3 source Lines were read in Pass 1, producing 17 object records in Pass 2. 

2 pages of virtual memory were used to define 31 macros. 
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: Macro library statistics ; 


Macro library name Macros defined 
_8255$DUA28: SVELOA 081 2CLUSTER.ALB: 1 1 
m3 geDUA :LSYS.OBJJLIB.MLB; 

$255$DUA28: (SYSLIBJSTARLET.MLB;2 : 
TOTALS (all Libraries) 


1869 GETS were required to define 28 macros. 
There were no errors, warnings or information messages. 


SYSLOA. SRC 


SHR NO 
H 


PQUORUM.MAR; 1 


EXE NORD NOWRT NOVEC BYT 
EXE RD WRT NOVEC BYT 
EXE RD WRT NOVEC BYT 


MACRO/LIS=L1IS$:CSPQUORUM/0BJ=0BJ$:CSPQUORUM MSRC$:CSPQUORUM/UPDATE=(ENHS: CSPQUORUM) +EXECML$/LIB+LIB$:CLUSTER/LIB 
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